home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / STR3.9SL.ARC / ST / R 3.9SL (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  34.1 KB  |  998 lines
  1. 100 IFPEEK(252)<>32THEN130
  2. 110 POKE152,PEEK(251)
  3. 120 NS=1:POKE252,0:GOTO250
  4. 130 POKE53280,0:POKE53281,0:PRINT"[152][147]":POKE650,128
  5. 140 IFPEEK(51976)=32THEN190
  6. 150 PRINT"[204]OADING [205]ACHINE [204]ANGUAGE"
  7. 160 ONPEEK(141)GOTO180,190
  8. 170 POKE141,1:LOAD"0:(ST/R.ML)",8,1
  9. 180 POKE141,0:LOAD"0:(ST/R.ML4SL)",8,1
  10. 190 OPEN5,2,3,CHR$(6):CLOSE5:POKE56,159:POKE644,159:CLR:OPEN111,8,15
  11. 200 OPEN5,2,3,CHR$(6)+CHR$(0):IFPEEK(140)=16THEN230
  12. 210 P=0:POKE51972,P:SYS51976
  13. 220 POKE56580,1:POKE56581,0:POKE56590,65:POKE140,16:POKE52993,0
  14. 230 SYS52041:SYS52050:SI=54272:FORI=SITOSI+24:POKESI,0:NEXT:POKESI+1,64
  15. 240 POKESI+4,20:POKESI+15,128:POKESI+24,15:POKESI+5,8:POKESI+6,8
  16. 250 B1=56577:B2=56579:Q$=CHR$(34):B3=56590:B4=56588:DV=8:SV=1:N$=CHR$(0):SF=1
  17. 260 DIME$(51),BR$(9,9),BM(9,9),U$(15),N$(15):SI=54272:DR$="0"
  18. 270 DIMDR%(7),MD(9,9),AC(9,9):DEFFNA(A)=PEEK(52036)=32
  19. 272 DEFFNB(A)=PEEK(52036)>0:DEFFNC(A)=PEEK(52033)
  20. 280 IFNSTHEN310
  21. 290 PRINT"[201]NSERT [198]ILE [196]ISK AND [208]RESS ANY KEY":BR=300:GOSUB7800
  22. 300 GETA$:IFA$=""THEN300
  23. 310 GOSUB320:GOTO420
  24. 320 OPEN1,8,5,"0:(BBS.CONFIG)":FORT=0TO9:INPUT#1,NB(T):IFNB(T)=0THEN340
  25. 330 FORI=0TONB(T)-1:INPUT#1,BR$(T,I),MD(T,I),AC(T,I):NEXT
  26. 340 NEXT:INPUT#1,DR:FORI=0TODR-1:INPUT#1,DR%(I):NEXT:DR=DR+7
  27. 350 INPUT#1,RF:AA=-((RFAND128)=128):RF$=MID$(STR$(AA),2)+":(USERFILE)"
  28. 360 INPUT#1,SY$,BD$,MT%,RC,S1$,S2$,RR,P1$,P2$,D5,D6,MF,N5,N3,N4,DL
  29. 370 CLOSE1:GOSUB7880:N1=R1:N2=R2:RF=RFAND127
  30. 372 OPEN1,8,5,"0:(MODEM.CONFIG)":INPUT#1,M1$,M2$,M3$,M4$,M6$:CLOSE1
  31. 380 OPEN1,8,5,"0:(BBS DATA)":INPUT#1,CN,NU,LC$,LN$,LF$:CLOSE1
  32. 390 OPEN1,8,5,"0:(BBS MESS)":FORT=0TO9:IFNB(T)=0THEN410
  33. 400 FORI=0TONB(T)-1:INPUT#1,BM(T,I):NEXT
  34. 410 NEXT:CLOSE1:RB=0:RETURN
  35. 420 OPEN1,8,5,"0:(GENERAL)":INPUT#1,GF:CLOSE1
  36. 430 OPEN1,8,5,"0:(PFILES)":INPUT#1,PF:IFPF=0THENCLOSE1:GOTO450
  37. 440 DIMPF$(PF),PD(PF),PF(PF):FORI=1TOPF:INPUT#1,PF$(I),PD(I),PF(I):NEXT:CLOSE1
  38. 450 IFNSTHEN530
  39. 460 GOSUB3300:FORT=0TO(DR-8):AA=DR%(T)AND63:GOSUB8370:OPEN15-B,DR%(T)AND63,15,"I0:"
  40. 470 IFDR$="1"THENPRINT#15-B,"I1:"
  41. 480 NEXT:HL=16:IFMT%=3THENGOSUB8460:HL=PEEK(181)AND64:IFHL=0THENPOKE42654,208
  42. 490 RI=PEEK(B1)AND8:GOTO520
  43. 500 IFFNC(0)=1THENOPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$"[195]ARRIER [196]ROPPED![152]"F$:CLOSE1
  44. 510 SYS52050:IFLGTHENGOSUB4590:GOSUB2620
  45. 520 SY=0:BS=255:LG=0:CG=0:UL$="":C0=0:N$=CHR$(0)
  46. 530 F$=CHR$(139):IFMT%=6THENB3=56334:B4=56332
  47. 540 DC$="[149] --===[129]***[158]===[153]---===[159]***[154]===---[156]===***[158]===--[152]":IFNSTHEN7360
  48. 545 BR=300:IFM6$="2400"THENBR=2400
  49. 550 GOSUB7800:GOSUB8460:DA$=M$+STR$(DT):POKE52070,0:POKE52994,0
  50. 560 SYS52050:PRINT"[147][215]AITING FOR A CALL":UL$=""
  51. 570 PRINT"[211]YSOP          : "SY$
  52. 580 PRINT"[208]REVIOUS CALLER: "LC$
  53. 590 PRINT"[212]IME LOGGED ON : "LN$
  54. 600 PRINT"[212]IME LOGGED OFF: "LF$
  55. 610 PRINT"[211]YSOP [193]VAILABLE: "MID$("[206]O [217]ES",SV*3+1,3)
  56. 620 PRINT"[206]UMBER OF [213]SERS:"NU
  57. 630 PRINT"[206]EW USERS TODAY:"NT
  58. 640 PRINT"[212]OTAL [195]ALLS    :"CN
  59. 650 PRINT"[197]-MAIL TO [211]YSOP:"SE
  60. 660 PRINT"[198]1 TAKES [211]YSOP [195]ONTROL."
  61. 670 PRINT"[198]3 [199]IVES [195]ARRIER.":POKE167,PEEK(168)
  62. 680 GETA$:IFA$="[133]"THEN3390
  63. 690 IFA$="[134]"THENRD=0:GOTO860
  64. 700 IFMT%<>3THEN830
  65. 710 GET#5,E$:RD=-(VAL(CHR$(ASC(E$+N$)AND127))<>2):IFRDTHEN840
  66. 720 TI$="000000"
  67. 730 GET#5,E$:IFE$=""THENGETE$:IFE$=""THEN810
  68. 732 IFE$="[136]"THENT=10:GOTO800
  69. 740 IFE$="[133]"THEN560
  70. 750 T=VAL(CHR$(ASC(E$)AND127))
  71. 760 PRINTT"    ";ASC(E$):IF(T=3)THEN880
  72. 770 IFT=1THENGET#5,E$:IFCHR$(ASC(E$+N$)AND127)="0"THENT=10
  73. 780 IFT=1THENBR=300:RD=0:GOSUB7800:GOTO870
  74. 790 IFT=5THENBR=1200:RD=0:GOSUB7800:GOTO870
  75. 800 IFT=10THENBR=2400:RD=0:GOSUB7800:GOTO870
  76. 810 IFVAL(TI$)>15+(3*VAL(MID$(M3$,4)))THEN880
  77. 820 GOTO730
  78. 830 RD=PEEK(B1)AND8
  79. 840 T1$="11:49:07.8 PM":SYS51982,T1$:PRINTDA$" "T1$" [145]":LH=VAL(LEFT$(T1$,2))
  80. 850 LM=VAL(MID$(T1$,4,2)):CT=LH:GOSUB3260:IFRDTHEN680
  81. 860 IFMT%=3THENPRINT#5,"[193][212][193]":TI$="000000":GOTO730
  82. 870 PRINT"[210]ING DETECTED!"F$:GOSUB8530:FORI=1TO3000:NEXT:GOSUB1440:IFFNC(0)=0THEN890
  83. 880 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,"[206]O CARRIER FOUND: [152]"T1$;F$:CLOSE1:GOTO520
  84. 890 SYS52041
  85. 895 POKE52030,SY:POKE52031,CG:POKE668,PEEK(667)
  86. 900 PRINT"[195]ONNECT AT"+STR$(BR)+" BAUD![139]"
  87. 910 POKE52068,1:F$=CHR$(139):FORT=1TO25:PRINT"[139]":NEXT
  88. 920 PRINT"[139][208][210][197][211][211] [[196][197][204][197][212][197]/[194][193][195][203][211][208][193][195][197]]:[139][196]/[194][211]:[164]"
  89. 930 GET#5,A$:IFA$=""THENGETA$:IFA$=""THENGOSUB1440:ONFNC(0)+1GOTO930,500
  90. 940 IFA$=CHR$(20)THENF$=CHR$(139):CG=1:POKE52031,CG:POKE52068,0
  91. 950 IFCGTHENPRINT"[139][139][195][129][207][158][204][207][210][156]/[199][154][210][159][193][208][150][201][129][195][158] MODE!![139]"
  92. 960 GOSUB4780:IFFNC(0)THENLC=5
  93. 970 IFLC=45THENPRINT"[139][204]ET SOMEBODY ELSE CALL, [207][203]?[139]":LC=5
  94. 980 IFLC=>5ORAC=0THENSYS52050:GOSUB8460:GOTO520
  95. 990 PRINT"[139][150][217]OU CAN MAKE"+STR$(VAL(U$(13))-VAL(U$(15)))+" MORE CALLS TODAY.[139]"
  96. 1000 PRINT"[139][150][204]AST CALLER  : "+LC$+F$
  97. 1010 PRINT"[158][212]IME ON      : "+LN$+F$
  98. 1020 PRINT"[153][212]IME OFF     : "+LF$+F$:GOSUB5100:POKE53247,255
  99. 1025 GOSUB9310:GOSUB9180
  100. 1030 BS$=BR$(0,1):BM=BM(0,1):MD=MD(0,1):NB=NB(0):RB=0:GOSUB4760:IFFNC(0)THEN500
  101. 1040 E$=CHR$(ASC(L$+N$)AND127)
  102. 1050 I=VAL(L$):IF(I<1ORI>9)ANDL$<>"0"THEN1070
  103. 1060 SC=0:GOSUB8820:IFSC=0THENC1=1:GOSUB3900
  104. 1070 IFASC(E$+N$)>96THENE$=CHR$(ASC(E$)-32)
  105. 1080 GOSUB8130:UL$=UL$+"[205]AIN-"+E$+CHR$(13)
  106. 1090 ON-(E$="Y")-2*(E$="T")-3*(E$="E")-4*(E$="D")GOSUB1730,4580,6090,7210
  107. 1100 SA=0:ON-(E$="F")-2*(E$="L")-3*(E$="S")-4*(E$="Q")GOSUB6030,1270,8850,8210
  108. 1110 ON-(E$="X")-2*(E$="G")-3*(E$="P")-4*(E$="N")GOSUB2490,7950,8580,6650
  109. 1120 IFE$="I"THENFI$="(BBS EQP)":GOSUB1620
  110. 1130 IFE$="A"THENFI$="(ANNOUNCE)":GOSUB1620
  111. 1140 IFE$="O"THENFI$="(BBS NUMBERS)":GOSUB1620
  112. 1150 IFE$="R"THENFI$="(BBS NAME)":GOSUB1620
  113. 1160 IFE$="H"THENFI$="(HELP)":GOSUB1620
  114. 1162 IFE$=">"ANDPEEK(665)<256THENPOKE665,PEEK(665)+1:PRINT"[139]"+STR$(PEEK(665))+"[139]"
  115. 1164 IFE$="<"ANDPEEK(665)>0THENPOKE665,PEEK(665)-1:PRINT"[139]"+STR$(PEEK(665))+"[139]"
  116. 1170 IFE$="X"THEN520
  117. 1180 IFE$="?"THENPOKE52040,1:GOTO1220
  118. 1190 IFE$="%"ANDAC=65535THENGOSUB6780
  119. 1200 IFFNC(0)THEN500
  120. 1210 GOTO1030
  121. 1220 IFMFANDCGTHENFI$="(M.MAIN)":GOSUB1630:IFER$="00"THENL$=A$:GOTO1040
  122. 1230 POKE52036,0:PRINT" [147]"+DC$+"[139][156]     ---=*]>  [205][193][201][206]   [205][197][206][213]  <[*=---[139]"+DC$+F$
  123. 1240 IFFNB(0)THENL$=CHR$(PEEK(52036)):POKE52040,0:GOTO1040
  124. 1250 GOSUB4620:IFFNB(0)THENL$=CHR$(PEEK(52036)):POKE52040,0:GOTO1040
  125. 1260 POKE52040,0:GOTO1030
  126. 1270 PRINT" [147][217]OUR CURRENT ACCESS LEVEL PERMITS YOU[139]"
  127. 1280 PRINT"TO USE THE FOLLOWING BOARDS:[139][139]":PRINT"":P$=""
  128. 1290 FORT=0TO9:AA=0:FORLC=0TONB(T)-1:IFAC<AC(T,LC)ORAC(T,LC)=0THEN1320
  129. 1300 IFAA=0THENAA=1:PRINT"[129][201]N [211]ET #"+MID$(STR$(T),2)+".[139]":P$=" "
  130. 1310 GOSUB1340
  131. 1320 NEXT:NEXT:IFP$>""THENPRINT"[139][150][212]O [197]NTER A [205]ESSAGE [194]ASE, [208]LEASE USE"
  132. 1322 IFP$>""THENPRINT"[139]THE [211][197][212] #[150], [206]OT THE [211][213][194] #.[139]":RETURN
  133. 1330 PRINT"[154][212]HERE ARE NO [211]UB-BOARDS!!":RETURN
  134. 1340 PRINT"[150] "+MID$(STR$(LC),2)+". "+BR$(T,LC)
  135. 1350 PRINTLEFT$("              ",14-LEN(BR$(T,LC)))
  136. 1360 PRINT"[205]SGS POSTED: "+STR$(BM(T,LC))+F$:RETURN
  137. 1370 IFA$="[133]"THENSY=SY+1:GOSUB3390:SY=SY-1:RETURN
  138. 1380 IFA$="[134]"THENGOSUB1770:TI$="000000":RETURN
  139. 1390 IFA$="[140]"THENPOKE52033,1:RETURN
  140. 1400 IFL<>65535THENRETURN
  141. 1410 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:PRINT#1,"4 [205]INS [197]LAPSED![159]"
  142. 1420 CLOSE1:POKE52033,2:UL$="":RETURN
  143. 1430 POKESI+4,21:POKESI+4,20:RETURN
  144. 1440 POKE52033,0:IFSYTHENRETURN
  145. 1450 IF(PEEK(181)AND64)=0THENRETURN
  146. 1460 TI$="000000"
  147. 1470 IF(PEEK(181)AND64)=0THENRETURN
  148. 1475 IFVAL(TI$)>5THENPOKE52033,1:RETURN
  149. 1480 GOTO1470
  150. 1540 GOSUB4590:IFCO>VAL(U$(14))ANDC0THEN1590
  151. 1550 POKE52030,SY:POKE52031,CG:POKE52038,EC:POKE52039,L
  152. 1560 POKE52040,MM:L$="TTSCK [198]IRES CONDOMS AND**NNO "
  153. 1570 SYS52003,L$:L=PEEK(52034)+256*PEEK(52036)
  154. 1580 A$=CHR$(PEEK(52034)):GOSUB1370:RETURN
  155. 1590 PRINT"[139][139][217]OU [200]AVE [197]XCEEDED [217]OUR [212]IME [204]IMIT!![139][199][207][207][196][194][217][197]![139][139]"
  156. 1600 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:UL$="":PRINT#1
  157. 1610 PRINT#1,"[197]XCEEDED [212]IME [204]IMIT![159]":PRINT#1:CLOSE1:POKE52033,3:RETURN
  158. 1620 IFCGTHENFI$=LEFT$(FI$,LEN(FI$)-1)+".CG)"
  159. 1630 OPEN1,8,5,"0:"+FI$:B=0:GOSUB3220:IFER$>"01"THENCLOSE1:GOTO1680
  160. 1640 IFRIGHT$(FI$,4)=".CG)"THENPRINT"[147][142]"
  161. 1650 POKE52030,SY:POKE52031,CG:SYS52021:CLOSE1:A$=CHR$(PEEK(52034)):PRINT" "
  162. 1660 IFCGANDFNC(0)=0THENPRINT"[139][139][156] (PRESS A KEY) [146][144][139]":L=1:GOSUB1540:PRINT"[147][154]"
  163. 1670 RETURN
  164. 1680 IFRIGHT$(FI$,4)=".CG)"THENFI$=LEFT$(FI$,LEN(FI$)-4)+")":GOTO1630
  165. 1690 RETURN
  166. 1700 PRINT"[139][197]NTER [193]CCESS LEVEL: ":L=5:GOSUB1540:IFFNC(0)THENRETURN
  167. 1710 IFVAL(L$)<0ORVAL(L$)>65535ORL$=""THENRETURN
  168. 1720 L=VAL(L$):A2=INT(L/256):A1=L-A2*256:A$=MID$(STR$(L)+"     ",2,5):RETURN
  169. 1730 IFSV<>1THENPRINT"[139][139]"+SY$+" IS NOT AVAILABLE RIGHT NOW.[139]":RETURN
  170. 1740 PRINT"[195]ALLING "+SY$+"....[139]":FORI=1TO20:GETA$:IFA$="[134]"THEN1770
  171. 1750 GOSUB1430:FORT=1TO600:NEXT:NEXT
  172. 1760 PRINT"[212]RY AGAIN LATER....[139]":RETURN
  173. 1770 PRINT"[139][139]"+SY$+", CHATTING WITH "+U$(1)+F$+F$
  174. 1780 SYS52012:A$=CHR$(PEEK(52034)):E$="":L$=E$
  175. 1790 IFA$="[134]"ORFNC(0)THENPRINT"[139]"+SY$+" HAS RETURNED TO "+BD$+".[139]":RETURN
  176. 1800 IFA$="[133]"THENGOSUB3390:GOTO1780
  177. 1810 IFA$="[140]"THENPOKE52033,1:RETURN
  178. 1820 RETURN
  179. 1830 AN=0
  180. 1840 PRINT"[139]  [212]O:":L=20:GOSUB1540:TU$=L$+"":IFFNC(0)THENRETURN
  181. 1850 PRINT"[211]UBJ:":L=30:GOSUB1540:SU$=L$+"":IFFNC(0)THENRETURN
  182. 1860 IFRB=0THEN1880
  183. 1870 PRINT"[217]OUR CHARACTER NAME:":L=20:GOSUB1540:U$(0)=L$+"":GOTO1890
  184. 1880 U$(0)=U$(1)
  185. 1890 PRINT"[139][205]AXIMUM OF 50 LINES.  [197]NTER /H FOR[139]"
  186. 1900 PRINT"HELP ON A [194][204][193][206][203] LINE.[139][139]"
  187. 1910 PRINT"<==== [205]AX. [204]INE [204]ENGTH - 38 [195]HAR ====>[139][139]"
  188. 1920 GOSUB3240:DT$=M$+STR$(DT)+" "+TM$:LC=0
  189. 1930 LC=LC+1:IFLC=51THENMM=0:GOTO1990
  190. 1940 IFLC>50THEN1990
  191. 1950 MM=1:L=39:GOSUB1540:MM=0:IFFNC(0)THENRETURN
  192. 1960 IFLEFT$(L$,1)="/"THENPOKE52040,MM:GOTO2010
  193. 1970 E$(LC)=L$+"":IFLC=45THENPRINT"-----> [198]IVE LINES LEFT.[139]"
  194. 1980 GOTO1930
  195. 1990 PRINT"[139][197]NTER EDIT COMMAND OR '/S' TO SAVE:[139]":LC=51
  196. 2000 L=4:GOSUB1540:IFFNC(0)THENRETURN
  197. 2010 E$=CHR$(ASC(MID$(L$,2,1)+N$)AND127):IFE$=N$THEN1930
  198. 2020 ON-(E$="A")-2*(E$="E")-3*(E$="L")-4*(E$="S")GOTO2130,2170,2260,2280
  199. 2030 ON-(E$="D")-2*(E$="I")-3*(E$="H")GOTO2080,2110,2060
  200. 2040 IF(CG)OR(SY)THENPRINT"[145]     [157][157][157][157][157]"
  201. 2050 GOTO1940
  202. 2060 PRINT"[139]/[193] - [193]BORT /[197]XX - [197]DIT   /[204] - [204]IST[139]/[211] - [211]AVE  /[196]XX - [196]ELETE "
  203. 2070 PRINT"/[200] - [200]ELP[139]/[201]XX - [201]NSERT LINE [194][197][198][207][210][197] XX[139][139]":GOTO1940
  204. 2080 AA=VAL(MID$(L$,3)):IFAA>0ANDAA<LCTHEN2100
  205. 2090 PRINT"[206]O DELETETION.[139]":GOTO1940
  206. 2100 FORI=AATOLC-1:E$(I)=E$(I+1):NEXT:LC=LC-1:GOTO2040
  207. 2110 AA=VAL(MID$(L$,3)):IFAA=0ORLC=>50THENPRINT"[206]O INSERTION.[139]":GOTO1940
  208. 2120 FORI=LC-1TOAASTEP-1:E$(I+1)=E$(I):NEXT:E$(AA)="":LC=LC+1:GOTO2040
  209. 2130 PRINT"[193]BORT LETTER (Y/N):"
  210. 2140 L=1:GOSUB1540:IFFNC(0)THENRETURN
  211. 2150 IFL$="Y"ORL$="[217]"THENGOSUB3170:SM=0:RETURN
  212. 2160 GOTO1940
  213. 2170 AA=VAL(MID$(L$,3)):IFAA>0ANDAA<LCTHEN2220
  214. 2180 FORT=1TOLC-1:PRINTSTR$(T)+":[139]"+E$(T)+F$:NEXT
  215. 2190 PRINT"[139][197]DIT [204]INE #:"
  216. 2200 L=2:GOSUB1540:IFFNC(0)THENRETURN
  217. 2210 AA=VAL(L$):IFAA<1ORAA>LC-1THENPRINT"[206]ON-EXISTANT LINE #.[139]":GOTO1940
  218. 2220 PRINT"[207]LD LINE:[139]"+E$(AA)+F$
  219. 2230 PRINT"[206]EW LINE:[139]"
  220. 2240 L=39:GOSUB1540:IFFNC(0)THENRETURN
  221. 2250 E$(AA)=L$+"":GOTO1940
  222. 2260 FORT=1TOLC-1:PRINTE$(T)+F$
  223. 2270 NEXT:GOTO1940
  224. 2280 IFU<>65THEN2310
  225. 2290 TU$=US$:IFANTHENTU$="[193]NONYMOUS"
  226. 2300 GOTO2350
  227. 2310 AA=MD:GOSUB8390
  228. 2320 BM=BM+1:IFBM>20THENPRINT#15-B,"S"+DR$+":("+BS$+STR$(BM-20)
  229. 2330 IFSM=1THENAN=R:GOTO2410
  230. 2340 PRINT"[217]OUR MESSAGE NUMBER IS: "+STR$(BM)+F$:IFSA=0ANDBA=0THEN2370
  231. 2350 AN=0:PRINT"[193]NONYMOUS? (Y/N):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  232. 2360 AN=-(L$="Y"ORL$="[217]"):U$(9)=MID$(STR$(VAL(U$(9))+INT(RR/(-(U=65)+1))),2)
  233. 2370 PRINT"[211]AVING MESSAGE....[139]"
  234. 2380 IFU=65THENOPEN1,MDAND127,5,DR$+":("+BS$+STR$(M)+",A":GOSUB3220
  235. 2390 IFU=65ANDE=62THENU=0:CLOSE1:OPEN1,MDAND127,5,DR$+":("+BS$+STR$(M)+",S,W":GOTO2420
  236. 2400 IFU=65THEN2420
  237. 2410 OPEN1,MDAND127,5,"@"+DR$+":("+BS$+STR$(BM)+",S,W"
  238. 2420 PRINT#1,AN
  239. 2430 PRINT#1,Q$U$(0)" (#"R$")":PRINT#1,Q$TU$:PRINT#1,Q$SU$:PRINT#1,Q$DT$
  240. 2440 FORI=1TOLC-1:PRINT#1,Q$E$(I):NEXT:PRINT#1,Q$"\":CLOSE1
  241. 2450 IFSMORU=76THENRETURN
  242. 2452 IFU<>65THENU=0
  243. 2455 GOSUB9350:GOSUB9470:POKE52994,1
  244. 2460 BM(SA,BA)=BM:OPEN1,8,5,"@0:(BBS MESS),S,W":FORT=0TO9:IFNB(T)=0THEN2480
  245. 2470 FORI=0TONB(T)-1:PRINT#1,BM(T,I):NEXT
  246. 2480 NEXT:CLOSE1:GOSUB3170:RETURN
  247. 2490 PRINT"[139][204]OG-OFF NOW? (Y/N):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  248. 2500 IFL$<>"Y"ANDL$<>"[217]"THENE$="":RETURN
  249. 2510 IFVAL(U$(5))=0THEN2540
  250. 2520 PRINT"[217]OU HAVE "+U$(5)+" LETTERS.[139][196]ELETE MAIL NOW? (Y/N): "
  251. 2530 L=1:GOSUB1540:TU$=L$+"":IFFNC(0)THENRETURN
  252. 2540 LC=0:FI$="(LOG OFF)":GOSUB1620
  253. 2550 PRINTF$+F$:PRINTDC$+F$:PRINTSY$+" THANKS YOU FOR CALLING,[139]"
  254. 2560 PRINT"AND HOPES THAT YOU WILL CALL AGAIN![139]"
  255. 2570 PRINTDC$+F$
  256. 2580 PRINT"[139][217]OU SIGNED ON AT : "+LT$+F$:GOSUB3240
  257. 2590 PRINT"[154][217]OU SIGNED OFF AT: "+TM$+F$:GOSUB4590
  258. 2600 PRINT"[159][195]ONNECT [212]IME     :"+STR$(CO)+" MINUTES[139]"
  259. 2610 PRINT"[139]   [212]HIS [194][194][211] IS AN [211][212]/[210] V3.9 SYSTEM.[152]  [139]"
  260. 2620 SYS52050
  261. 2630 GOSUB8460:IFLC=>5THENRETURN
  262. 2640 OPEN1,8,5,"0:(T.CALLERS),A":PRINT#1,U$(1)" (#"R$")"
  263. 2650 PRINT#1,"[204]OG-ON : "LT$:PRINT#1,"[204]OG-OFF: "TM$
  264. 2660 PRINT#1,"[195]ONNECT [212]IME:"CO"MIN."
  265. 2670 IFFNC(0)=1THENPRINT#1,"[195]ARRIER DROPPED!  [211]HAME, SHAME.[154]"
  266. 2672 IFFNC(0)=2THENPRINT#1,"[159][198]ORGOT HE/SHE WAS ONLINE!!"
  267. 2674 IFFNC(0)=3THENPRINT#1,"[197]XCEEDED [212]IME [193]LOWED!![152]"
  268. 2680 PRINT#1:CLOSE1:LC$=U$(1):LN$=LT$:LF$=TM$:E$="X":IFFNC(0)THENL$="":GOTO2710
  269. 2690 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$"[204]OG OFF AT "TM$"[152]"
  270. 2700 PRINT#1,"[195]ONNECT TIME:"STR$(CO)" MINS."F$:CLOSE1:UL$=""
  271. 2710 OPEN1,8,5,"@0:(BBS DATA),S,W":PRINT#1,CN:PRINT#1,NU:PRINT#1,Q$U$(1)
  272. 2720 PRINT#1,Q$LN$:PRINT#1,Q$LF$:CLOSE1
  273. 2730 IFTU$<>"Y"ANDTU$<>"[217]"THEN2750
  274. 2740 FORT=1TOVAL(U$(5)):PRINT#15,"S0:("+R$+STR$(T):NEXT:U$(5)="0"
  275. 2750 OPEN3,RF,3,RF$:RC=R:GOSUB3180:U$(11)=M$+MID$(STR$(DT),2)
  276. 2755 U$(8)=MID$(STR$(CG),2):IFPEEK(52070)THENU$(8)="2":POKE52070,0
  277. 2760 GOSUB8170:E$="X":CLOSE3
  278. 2790 BR=300:GOSUB7800:RETURN
  279. 2800 SC=0:GOSUB4160:IFER$>"01"THENCLOSE1:RETURN
  280. 2810 IFMC=0THENPRINT" [147]"
  281. 2820 IFMCTHENPRINT"[139][139][139][139]"
  282. 2825 IFL=55THENCMD4
  283. 2830 PRINT"[205]SG#"+MID$(STR$(M),2)+"------>"+BS$+F$
  284. 2840 PRINT"[139]  [212]O:"+TU$+F$:IFANTHENE$="[193]NONYMOUS":GOTO2870
  285. 2850 E$=US$:IFRB=0THEN2870
  286. 2860 IFRIGHT$(E$,1)<>" "THENE$=LEFT$(E$,LEN(E$)-1):GOTO2860
  287. 2870 PRINT"[198]ROM:"+E$+F$
  288. 2880 PRINT"[196]ATE:"+DT$+F$
  289. 2890 PRINT"[211]UBJ:"+SU$+F$+F$:POKE52036,0
  290. 2900 POKE52040,1:FORT=1TO50:P$=E$(T):IFP$="\"THENT=56:GOTO2930
  291. 2910 PRINTP$+F$:A$="":IFFNB(0)THENA$=CHR$(PEEK(52036))
  292. 2920 IFA$="/"THENCLOSE1:U=64:POKE52040,0:RETURN
  293. 2925 IFA$=" "THENT=56
  294. 2930 NEXT:PRINTDC$+F$:POKE52040,0
  295. 2940 PRINT"[205]ESSAGE SENT BY: "+E$+F$
  296. 2950 IFUAND64THENRETURN
  297. 2960 GOSUB4180:GOTO2840
  298. 2970 IFMCANDPA%=0THEN3170
  299. 2980 A$=STR$(M+S):IFM+S=0ORM+S>BMTHENA$="[209]UIT"
  300. 2990 PRINT"[139][210]ETURN="+A$+":[204]AST MSG READ="+STR$(M)+":[209] - [209]UIT[139]"
  301. 3000 PRINT"[210] - [210]ESPOND [197] - SEND [197]-MAIL ":IFAC=65535THENPRINT"[208] - [208]RINT"
  302. 3010 PRINT"[139]"
  303. 3070 GOSUB4730:PRINT"[139][153][194][210]"+MID$(STR$(BA),2)+":":L=3:GOSUB1540:IFFNC(0)THENRETURN
  304. 3080 IFL$="P"ORL$="[208]"ANDAC=65535THENL=55:OPEN4,4,7:GOSUB2800:L=0:PRINT#4:CLOSE4
  305. 3090 IFL$=""ORL$="Q"ORL$="[209]"THEN3170
  306. 3100 IFL$="R"ORL$="[210]"THENU=65:SM=0:GOSUB1860:U=0:GOTO3170
  307. 3110 L=4:IFL$<>"E"ANDL$<>"[197]"THEN3150
  308. 3120 L$=RIGHT$(US$,L):IFVAL(L$)=0THENL=L-1:GOTO3120
  309. 3130 L$=LEFT$(L$,LEN(L$)-1)
  310. 3140 U=76:GOSUB6240:U=0:BM=BM(SA,BA):BS$=BR$(SA,BA):MD=MD(SA,BA):AN=0:GOTO3170
  311. 3150 IFMCTHEN3170
  312. 3155 T=VAL(L$):IFT<1ORT>BMTHEN2970
  313. 3160 M=T-S
  314. 3170 US$="":TU$="":SU$="":FORT=1TO51:E$(T)="":NEXT:DT$="":E$(1)="\":RETURN
  315. 3180 GOSUB7880:AA=RF:GOSUB8370
  316. 3190 FORL=1TO2:PRINT#15-B,"P"CHR$(99)CHR$(R1)CHR$(R2)CHR$(1):GOSUB3220:NEXT
  317. 3200 GOSUB3220:IFER$<"20"ORER$="50"THENRETURN
  318. 3210 PRINT"[197]RROR IN (USERFILE)!":GOSUB8460:STOP
  319. 3220 ES$="":GOSUB3230:ER$=LEFT$(ES$,2):RETURN
  320. 3230 GET#15-B,A$:ES$=ES$+A$:ON-(A$<>CHR$(13))GOTO3230:RETURN
  321. 3240 T1$="12:07:29.0 AM":SYS51982,T1$:TM$=T1$+""
  322. 3250 CT=VAL(TM$):MI=VAL(MID$(TM$,4,2))
  323. 3260 IFCT<>12ANDRIGHT$(T1$,2)<>"AM"THENC2=1:GOTO3290
  324. 3270 IFC2THENOPEN1,8,5,"@0:(T.CALLERS),S,W":PRINT#1," ":CLOSE1:DT=DT+1
  325. 3280 IFC2THENC2=0:NT=0:IFSFTHENOPEN1,8,5,"@0:(USER LOG),S,W":CLOSE1
  326. 3290 DA$=M$+STR$(DT):POKE766,DT:RETURN
  327. 3300 IFPEEK(767)=64THENDT=PEEK(766):FORT=0TO2:M$=M$+CHR$(PEEK(763+T)):NEXT:RETURN
  328. 3310 INPUT"[147][205]ONTH:";M$:INPUT"[196]ATE :";DT:IFM$=""ANDDT=0THENM$="[202]UL":DT=8
  329. 3315 M$=LEFT$(M$,3):DA$=M$+STR$(DT)
  330. 3320 PRINT"[213]SE MILITARY TIME:":INPUT"[200]OUR :";H:INPUT"[205]IN. :";MT:POKE767,64
  331. 3330 POKE766,DT:MT=MT+INT(MT/10)*6:IFH=24THENH=0
  332. 3340 FORT=0TO2:POKE763+T,ASC(MID$(M$,T+1,1)):NEXT:IFH>12THENA$="P":H=H-12:GOTO3340
  333. 3350 IFH>9THENH=H+6
  334. 3360 IFA$="P"THENH=H+128
  335. 3370 POKE56331,H:IFH=0THENPOKE56331,18:POKE56331,PEEK(56331)OR16
  336. 3380 POKE56329,0:POKE56330,MT:POKE56328,0:RETURN
  337. 3390 SYS52050:PRINT"[147][211][217][211][207][208] MENU"
  338. 3400 IFRDTHENPRINT"1 - [210]UN THROUGH PROGRAM"
  339. 3410 PRINT"2 - [211]ET [212]IME"
  340. 3420 PRINT"3 - [214]ALIDATE USER"
  341. 3430 IFRDTHENPRINT"4 - [193]WAIT CALL"
  342. 3440 IFRDTHENPRINT"5 - [210]EAD FEEDBACK AND MESSAGES"
  343. 3450 PRINT"6 - [212]OGGLE [211]YSOP AVAILABILITY: "MID$("[206]O [217]ES",SV*3+1,3)
  344. 3460 PRINT"7 - [197]XIT [194][194][211]"
  345. 3470 PRINT"8 - [210]EPLACE '-DELETED-' USER: "MID$("[206]O [217]ES",NW*3+1,3)
  346. 3480 IFRD=0THENPRINT"9 - [210]AISE USER ACCESS LEVEL"
  347. 3490 PRINT"[193] - [197]XTENDED COMMANDS"
  348. 3500 IFRD=0THENPRINT"[194] - [210]ETURN USER TO SYSTEM"
  349. 3510 PRINT"[195] - [211]CRATCH (USER LOG): "MID$("[206]O [217]ES",SF*3+1,3)
  350. 3520 IFMT%=3THENPRINT"[196] - [193]NSWER CALL [206][207][215]"
  351. 3525 IFMT%=3THENPRINT"[197] - [205]ODEM IS: [204]OUD":IFM4$="[205]0"THENPRINT"[145]"TAB(14)"[209]UIET"
  352. 3527 PRINT"[198] - [208]OST BEFORE [208]FILE: "MID$("[206]O [217]ES",PEEK(52993)*3+1,3)
  353. 3530 GETA$:IFA$=""THEN3530
  354. 3540 IFA$="1"ANDRDTHENSY=1:RD=0:GOTO890
  355. 3550 IFA$="2"THENPOKE767,0:GOSUB3300
  356. 3560 IFA$="3"THENSY=SY+1:POKE52030,SY:SYS52041:GOSUB5670:SY=SY-1
  357. 3570 IFA$="4"ANDRDTHENSY=0:GOTO560
  358. 3580 IFA$="5"ANDRDTHENSY=1:T=0:I=0:AC=65535:U$(1)=SY$:SYS52041:GOSUB3900:GOSUB8000
  359. 3590 IFA$="6"THENSV=1-SV:GOTO3390
  360. 3600 IFA$="7"THENINPUT"[217]OU SURE? (Y/N)";A$:IFA$="Y"THENSYS65511:END
  361. 3610 IFA$="8"THENNW=1-NW
  362. 3620 IFA$="9"ANDRD=0THENSY=SY+1:POKE52030,SY:SYS52041:GOSUB1700:U$(3)=A$:AC=L:SY=SY-1
  363. 3630 IFA$="A"THENSY=SY+1:POKE52030,SY:SYS52041:GOSUB6810:SY=SY-1
  364. 3640 IFA$="B"ANDRD=0THENSYS52041:TI$="000000":RETURN
  365. 3650 IFA$="C"THENSF=1-SF:GOTO3390
  366. 3660 IFA$="D"ANDMT%=3THENTI$="000000":GOTO730
  367. 3665 IFA$="E"ANDMT%=3ANDM4$="[205]1"THENM4$="[205]0":GOSUB8460:GOTO3670
  368. 3667 IFA$="E"ANDMT%=3ANDM4$="[205]0"THENM4$="[205]1":GOSUB8460
  369. 3668 IFA$="F"THENPOKE52993,1-PEEK(52993)
  370. 3670 POKE52030,SY:GOTO3390
  371. 3680 GOSUB9090:PRINT"[139][217]OU ARE NOW ENTERING: [156]"+BS$+"[139][139]":GOSUB9410
  372. 3690 BM=BM(SA,BA):PRINT"[155][212]HERE ARE[152]"+STR$(BM)+" [155]MESSAGES ACTIVE.[139]"
  373. 3700 IFMCTHENRETURN
  374. 3710 GOSUB4730:PRINT"[139][153][194]"+MID$(STR$(SA),2)+";"+MID$(STR$(BA),2)+":"
  375. 3720 L=1:GOSUB1540:IFFNC(0)THENRETURN
  376. 3730 IFL$=""THEN3700
  377. 3740 E$=CHR$(ASC(L$)AND127)
  378. 3750 GOSUB8130:UL$=UL$+"[194]ULL"+STR$(SA)+";"+STR$(BA)+"-"+E$+CHR$(13)
  379. 3760 IFE$="F"ORE$="R"THENGOSUB4090:E$=""
  380. 3770 IFE$="B"THENGOSUB8800:IFSC=0THENC1=1:GOTO3900
  381. 3780 IFE$="+"THENT=BA+1:I=SA:IFT<NBTHEN3900
  382. 3790 IFE$="?"THEN3980
  383. 3800 IFE$="-"THENT=BA-1:I=SA:IFT=>0THEN3900
  384. 3810 IFE$="P"THENSM=0:GOSUB1830:E$="":IFFNC(0)THENRETURN
  385. 3820 IFE$="Q"THENE$="":RETURN
  386. 3830 IFE$="N"THENM1=BA:M2=BA:QT=SA:MC=2:GOSUB8250
  387. 3840 IFE$="A"THENM1=1:M2=BM:QT=SA:GOTO3960
  388. 3850 ON-(E$="S")-2*(E$="L")GOSUB4280,1270
  389. 3860 IFE$="C"THENGOSUB1730
  390. 3870 IFVAL(E$)<0ORVAL(E$)>NBTHEN3700
  391. 3880 I=SA:T=VAL(E$):IFT<0ORT>NB-1THEN3700
  392. 3890 IFE$<>"0"ANDT=0THEN3700
  393. 3900 SC=1
  394. 3910 IFAC=>AC(I,T)ANDAC(I,T)>0THENSC=0
  395. 3920 IFMCTHENRETURN
  396. 3930 IFSCTHEN3710
  397. 3940 BS$=BR$(I,T):BA=T:SA=I:MD=MD(I,T):NB=NB(I):RB=0:IFI=9THENRB=1
  398. 3950 GOTO3680
  399. 3960 IFM1<BM-19THENM1=BM-19
  400. 3970 MC=1:S=MC:GOSUB4130:MC=0:GOTO3700
  401. 3980 IFMFANDCGTHENFI$="(M.SUBS)":GOSUB1630:IFER$="00"THEN3700
  402. 3990 PRINT" [147][150][194]ULLETIN LEVEL COMMANDS ARE:[139][139]"
  403. 4000 IFFNA(0)THEN3700
  404. 4010 Z$=MID$(STR$(NB(SA)-1),2)
  405. 4020 PRINT"[0-"+Z$+"] [211]UB-BOARDS     [139]":IFFNA(0)THEN3700
  406. 4030 PRINT"[129][204] - LIST BOARDS      [208] - [208]OST MESSAGE[139]":IFFNA(0)THEN3700
  407. 4040 PRINT"[158][209] - [210]ETURN TO MAIN   [210] - [210]EVERSE READ[139]":IFFNA(0)THEN3700
  408. 4050 PRINT"[153][211] - [211]CAN [205]ESSAGES    [198] - [198]ORWARD READ[139]":IFFNA(0)THEN3700
  409. 4060 PRINT"[154]+ - [211]TEP UP          - - [211]TEP DOWN   [139]":IFFNA(0)THEN3700
  410. 4070 PRINT"[156][195] - [195]HAT WITH [211]YS[207]P  [206] - READ [206]EW    [139]"
  411. 4080 PRINT"[193] - READ [193]LL MSGS    [194] - [195]HANGE [211]ET  [139]":GOTO3700
  412. 4090 IFBM=0THENPRINT"[206]O MESSAGES ON FILE.[139]":RETURN
  413. 4100 S=1:M1=BM-19:M2=BM:IFE$="R"THENS=-1:M1=BM:M2=BM-19
  414. 4110 IFM1<1THENM1=1
  415. 4120 IFM2<1THENM2=1
  416. 4130 FORM=M1TOM2STEPS:GOSUB2800:IFFNC(0)OR(MCANDA$="/")THENRETURN
  417. 4140 GOSUB2970:IFFNC(0)ORL$="Q"ORL$="[209]"THENA$="/":RETURN
  418. 4150 NEXT:RETURN
  419. 4160 AA=MD:GOSUB8390:OPEN1,MDAND127,5,DR$+":("+BS$+STR$(M):GOSUB3220
  420. 4170 IFER$>"01"THENCLOSE1:RETURN
  421. 4180 INPUT#1,A$:AN=VAL(A$):IF(ST)AND64THEN4260
  422. 4190 INPUT#1,US$:IF(ST)AND64THEN4260
  423. 4200 INPUT#1,TU$:IF(ST)AND64THEN4260
  424. 4210 INPUT#1,SU$:IF(ST)AND64THEN4260
  425. 4220 IFSCTHENCLOSE1:RETURN
  426. 4230 INPUT#1,DT$:IF(ST)AND64THEN4260
  427. 4240 FORI=1TO51:INPUT#1,E$(I):IFE$(I)="\"THEN4260
  428. 4250 NEXT
  429. 4260 U=ST:GOSUB3220:IFUAND64THENCLOSE1
  430. 4270 RETURN
  431. 4280 IFBM=0THENPRINT"[206]O MESSAGES ON FILE.[139]":RETURN
  432. 4290 A$="1":IFBM>20THENA$=MID$(STR$(BM-19),2)
  433. 4300 PRINT"[139][205]ESSAGE NUMBERS RANGE FROM "+A$+" TO "+MID$(STR$(BM),2)+":[139]"
  434. 4310 PRINT"[211]TART SCAN WITH [205]ESSAGE #:"
  435. 4320 L=3:GOSUB1540:IFFNC(0)ORL$=""THENRETURN
  436. 4330 M=VAL(L$):IFM<BM-19ORM>BMORM<1THEN4290
  437. 4340 SC=1:S=0:GOSUB4160:IFER$>"01"THENSU$=""
  438. 4350 PRINT"[205]SG#"+MID$(STR$(M),2)+" [211]UBJ: "+SU$+F$:IFFNA(0)THENRETURN
  439. 4360 M=M+1:IFM>BMTHENRETURN
  440. 4370 GOSUB1440:IFFNC(0)THENRETURN
  441. 4380 GOTO4340
  442. 4390 PRINT"[139][217]OUR [211]TATISTICS....[139][139]"
  443. 4400 PRINT"[206]AME          : "+U$(1)+F$
  444. 4410 PRINT"[217]OU ARE CALLER:"+STR$(CN)+F$
  445. 4420 PRINT"[212]OTAL # USERS :"+STR$(NU)+F$
  446. 4430 PRINT"[193]CCESS LEVEL  :"+STR$(AC)+F$:GOSUB3240
  447. 4440 PRINT"[196]ATE/[212]IME     : "+DA$+" "+TM$+F$:GOSUB4590
  448. 4450 PRINT"[195]ONNECT [212]IME  :"+STR$(CO)+" MINS.[139]"
  449. 4460 PRINT"[205]EMBER #      : "+R$+F$
  450. 4470 PRINT"[208]ASSWORD      : "+U$(4)+F$
  451. 4480 PRINT"[193]GE           : "+U$(6)+F$
  452. 4490 PRINT"[210]EAL [206]AME     : "+U$(7)+F$
  453. 4500 PRINT"[193]VAIL [195]REDITS : "+U$(9)+F$
  454. 4510 PRINT"[194]LOCKS [196]/[204]'D  : "+U$(10)+F$
  455. 4520 PRINT""+MID$(STR$(RR),2)+" [194]LOCKS PER [208]OST[139]"
  456. 4530 PRINT"[204]AST CALL DATE: "+U$(11)+F$
  457. 4540 PRINT"[212]OTAL CALLS   : "+U$(12)+F$
  458. 4550 PRINT"# [195]ALLS [212]ODAY : "+U$(15)+" OF "+U$(13)+" [193]LLOWED"
  459. 4560 PRINT"[139][212]IME PER [195]ALL : "+U$(14)+" MINUTES[139]":RETURN
  460. 4570 PRINT"[212]ODAY'S CALLER LIST:[139][139]"
  461. 4580 FI$="(T.CALLERS)":GOSUB1630:RETURN
  462. 4590 GOSUB3240:CO=ABS((LH*60+LM)-(CT*60+MI))
  463. 4600 IFLH=12ANDCT<12THENCO=ABS(CO-720)
  464. 4610 RETURN
  465. 4620 PRINT"[149][193] - [193]NNOUNCEMENTS   [196] - UP/[196]OWNLOADS   [139]":IFFNB(0)THENRETURN
  466. 4630 PRINT"[217] - [217]ELL FOR [211]YSOP  [198] - [198]EEDBACK       [139]":IFFNB(0)THENRETURN
  467. 4640 PRINT"[150][197] - [197]LECTRONIC [205]AIL [201] - SYSTEM [201]NFO    [139]":IFFNB(0)THENRETURN
  468. 4650 PRINT"[129][199] - [199]ENERAL FILES   [207] - [194][194][211] LIST       [139]":IFFNB(0)THENRETURN
  469. 4660 Z$=LEFT$(BD$,15):A$=Z$+LEFT$("                ",15-LEN(Z$))+"[139]"
  470. 4670 PRINT"[158][211] - [217]OUR [211]TATUS     [210] - "+A$:IFFNB(0)THENRETURN
  471. 4680 PRINT"[153][212] - [212]ODAY'S CALLERS [206] - [206]EW BAUD RATE  [139]":IFFNB(0)THENRETURN
  472. 4690 PRINT"[216] - E[216]IT [194][194][211]        [204] - [204]IST BOARDS    [139]":IFFNB(0)THENRETURN
  473. 4700 PRINT"[154][200] - SYSTEM [200]ELP     [209] - [209]UICKSCAN      [139]":IFFNB(0)THENRETURN
  474. 4710 PRINT"[0-9] [205]ESSAGE [194]ASES [208] - [208]ROGRAM FILES  [139]":IFFNB(0)THENRETURN
  475. 4712 IFPEEK(659)<>10THEN4720
  476. 4714 PRINT"[156]< - [212]UNE [194]AUD [196]OWN  > - [212]UNE [194]AUD UP   [139]":IFFNB(0)THENRETURN
  477. 4720 PRINT"[146]"+DC$+F$:RETURN
  478. 4730 GOSUB4590:SYS52050:PRINT:PRINT""U$(1)TAB(20)LEFT$(U$(7),20)
  479. 4740 PRINT"[154][207]N: "LT$TAB(20)"[206]OW: "TM$:PRINT"[159][204]EVEL:"ACTAB(20);
  480. 4750 PRINT"[195]ONNECTED:"STR$(CO)" MINS.[152]":SYS52041:RETURN
  481. 4760 GOSUB4730:PRINT"[139][212]IME [204]EFT:"+STR$(VAL(U$(14))-CO)+" MINUTES"
  482. 4770 PRINT"[139][158][205][193][201][206]:":L=1:GOSUB1540:RETURN
  483. 4780 FI$="(BBS WELC)":GOSUB1620:LC=0
  484. 4790 PRINT"[139][217][207][213] [200][193][214][197] [195][207][206][206][197][195][212][197][196] [215][201][212][200]: "+BD$
  485. 4800 PRINT"[139][208][210][207][199][210][193][205] [215][210][201][212][212][197][206] [194][217]     : [196].[205]C[204]AUGHLIN"
  486. 4810 PRINT"[139][139][197][206][212][197][210] [217][207][213][210] [201][196]#/[200][193][206][196][204][197]/[207][210] [206][197][215]:[139][201][196]:"
  487. 4820 L=20:GOSUB1540:IFFNC(0)THENRETURN
  488. 4830 IFVAL(L$)<>0THEN4920
  489. 4840 IFL$="NEW"ORL$="[206][197][215]"THEN5230
  490. 4850 IFL$=""THENLC=LC+.5:PRINT"":ON-(LC<5)-2*(LC=>5)GOTO4810,4910
  491. 4860 OPEN3,RF,3,RF$:FORU=1TONU:RC=U:GOSUB3180:GET#3,A$
  492. 4870 INPUT#3,A$:IFA$<>L$THEN4890
  493. 4880 CLOSE3:L$=STR$(RC):PRINT"[139][139][196]ON'T [198]ORGET [217]OUR [201][196]# IS:"L$"[139]":GOTO4920
  494. 4890 PRINT".":IFFNC(0)THENCLOSE3:RETURN
  495. 4892 GET#5,A$:IFA$=""THENGETA$
  496. 4893 IFA$=" "THENU=NU+1
  497. 4895 NEXTU:CLOSE3:PRINT"[139]"
  498. 4900 PRINT"[139][197][206][212][197][210] '[206][197][215]' [201][198] [217][207][213] [200][193][214][197] [206][207] [201][196]#[139]":PRINT"":LC=LC+1:IFLC<5THEN4810
  499. 4910 PRINT"[139][139][207][206][204][217] 5 [212][210][201][197][211] [193][204][204][207][215][197][196], [211][207][210][210][217].[139]":GOTO2550
  500. 4920 R=VAL(L$):R$=MID$(STR$(R),2):IFR<1ORR>NUTHEN4900
  501. 4930 OPEN3,RF,3,RF$
  502. 4940 RC=R:GOSUB3180
  503. 4950 GOSUB8150:CLOSE3:IFU$(1)="-DELETED-"THEN4900
  504. 4960 PRINT"[139][197][206][212][197][210] [217][207][213][210] [208][193][211][211][215][207][210][196]:[139][208][215]:"
  505. 4970 L=20:EC=1:GOSUB1540:EC=0:IFFNC(0)THENRETURN
  506. 4980 IFL$<>U$(4)THEN4900
  507. 4990 PRINT"[139][208]LEASE WAIT!  [211]EARCHING....[139]"
  508. 5000 IFCG=0ANDU$(8)="1"THENU$(8)="0"
  509. 5030 IFCGTHENU$(8)="1"
  510. 5035 IFU$(8)="2"THENCG=0:POKE52070,1
  511. 5040 GOSUB8000:EM=VAL(U$(5)):U$(15)=MID$(STR$(VAL(U$(15))+1),2)
  512. 5050 GOSUB3240:LH=CT:LM=MI:LT$=TM$:LG=1:IFR=1THENSE=0
  513. 5060 IFAC=0THENPRINT"[217]OU ARE DENIED ACCESS.[139]":RETURN
  514. 5070 IFVAL(U$(15))>VAL(U$(13))ANDU$(11)=M$+MID$(STR$(DT),2)THENLC=45:RETURN
  515. 5080 IFU$(11)<>M$+MID$(STR$(DT),2)THENU$(15)="1"
  516. 5090 C0=1:FI$="(ANNOUNCE)":GOSUB1620:RETURN
  517. 5100 CN=CN+1:OPEN1,8,5,"@0:(BBS DATA),S,W":PRINT#1,CN:PRINT#1,NU:PRINT#1,Q$LC$
  518. 5110 PRINT#1,Q$LN$:PRINT#1,Q$LF$:CLOSE1
  519. 5120 GOSUB3240:PRINT"[196]ATE/[212]IME    : "+DA$+" "+TM$+F$
  520. 5130 PRINT"[159][195]ALLER NUMBER:"+STR$(CN)+F$
  521. 5140 OPEN1,8,5,"0:(USER LOG),A":PRINT#1,U$(1)" [204]VL-"+STR$(AC)+"[152]"
  522. 5150 PRINT#1,"[204]OG ON AT "DA$" "TM$:PRINT#1,"[195]ONNECT AT:";BR;"[194]AUD.":CLOSE1
  523. 5160 U$(12)=MID$(STR$(VAL(U$(12))+1),2)
  524. 5170 IFVAL(U$(5))<1THEN5190
  525. 5180 PRINT"[139]******* [159][217]OU HAVE MAIL WAITING! *******":GOTO5200
  526. 5190 PRINT"[139][150][211]ORRY, NOTHING BUT BILLS [150]TODAY!!"
  527. 5200 IFSV=0THENPRINT"[139][139][150]"+S2$+"[139]":GOTO5220
  528. 5210 PRINT"[139][139][156]"+S1$+"[152][139]"
  529. 5220 GOSUB7420:RETURN
  530. 5230 GOSUB3240:LH=CT:LM=MI:LT$=TM$
  531. 5240 PRINT"[139][217][207][213][210] [206][193][205][197] [207][210] [200][193][206][196][204][197]:[139][198][204][206]:"
  532. 5250 L=20:GOSUB1540:IFFNC(0)THENRETURN
  533. 5260 U$(1)=L$+""
  534. 5270 PRINT"[139][208][200][207][206][197] [206][213][205][194][197][210] ([216][216][216]-[216][216][216]-[216][216][216][216]):[139][208]#:"
  535. 5280 L=12:GOSUB1540:IFFNC(0)THENRETURN
  536. 5290 IFLEN(L$)<>12THEN5270
  537. 5300 IFMID$(L$,4,1)<>"-"ORMID$(L$,8,1)<>"-"THEN5270
  538. 5310 U$(2)=L$+""
  539. 5320 PRINT"[139][217][207][213][210] [193][199][197]:[139]:":L=3:GOSUB1540:IFFNC(0)THENRETURN
  540. 5330 IFVAL(L$)<9ORVAL(L$)>90THEN5320
  541. 5340 U$(6)=L$+""
  542. 5350 PRINT"[139][217][207][213][210] [210][197][193][204] [206][193][205][197]:[139][210][206]:"
  543. 5360 L=20:GOSUB1540:IFFNC(0)THENRETURN
  544. 5370 IFL$=""THEN5350
  545. 5380 U$(7)=L$+""
  546. 5390 PRINT"[139][197][206][212][197][210] [217][207][213][210] [208][193][211][211][215][207][210][196]:[139][208][215]:"
  547. 5400 L=15:GOSUB1540:IFFNC(0)THENRETURN
  548. 5410 U$(4)=L$+"":IFCGTHEN5420
  549. 5412 PRINT"[139][195][193][206] [217][207][213][210] [212][197][210][205] [196][201][211][208][204][193][217] [201][194][205] [193][206][211][201] [195][207][204][207][210]?[139][193][206][211][201]:":L=1:GOSUB1540
  550. 5414 IFFNC(0)THENRETURN
  551. 5416 U$(8)="0":IFL$="Y"ORL$="[217]"THENU$(8)="2":POKE52070,1
  552. 5420 PRINT" [147] [206]AME/[200]ANDLE: "+U$(1)+F$
  553. 5430 PRINT"[208]HONE [206]UMBER: "+U$(2)+F$
  554. 5440 PRINT"    [208]ASSWORD: "+U$(4)+F$
  555. 5450 PRINT"         [193]GE: "+U$(6)+F$
  556. 5460 PRINT"   [210]EAL [206]AME: "+U$(7)+F$
  557. 5470 PRINT"[139][201]S THIS CORRECT? (Y/N):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  558. 5480 IFL$="N"ORL$="[206]"THEN5230
  559. 5490 PRINT" [147][139]"
  560. 5500 PRINT"[217]OUR [208]ASSWORD IS: "+U$(4)+F$:A1=N1:A2=N2:AC=A1+256*A2
  561. 5510 U$(3)=STR$(A1+256*A2):OPEN3,RF,3,RF$:L$="1"
  562. 5520 IFNWTHENNW=2:GOSUB6400:IFNW=3THENR$=MID$(STR$(LC),2):R=LC:NW=1:GOTO5540
  563. 5530 NU=NU+1:R$=MID$(STR$(NU),2):R=NU
  564. 5540 PRINT"[139][217]OUR MEMBER # IS: "+R$+F$
  565. 5550 PRINT"[139][215]AIT....[211]AVING YOUR STATS.[139]"
  566. 5560 RC=R:GOSUB3180:U$(5)="0":IFCGTHENU$(8)="1"
  567. 5570 U$(10)="0":U$(11)="[202]AN1":U$(9)=MID$(STR$(N5),2)
  568. 5580 FORT=0TO199:POKE52993+T,0:NEXT:U$(15)="1"
  569. 5590 U$(14)=MID$(STR$(N3),2):U$(13)=MID$(STR$(N4),2)
  570. 5600 U$(12)="0":GOSUB8170:CLOSE3:NT=NT+1:LG=1:C0=1
  571. 5610 GOSUB3220:IFER$>"01"THENPRINTES$
  572. 5620 OPEN1,8,5,"@0:(BBS DATA),S,W":PRINT#1,CN:PRINT#1,NU:PRINT#1,Q$LC$
  573. 5630 PRINT#1,Q$LN$:PRINT#1,Q$LF$:CLOSE1
  574. 5640 FI$="(NEWUSER)":GOSUB1620:GOSUB6070
  575. 5650 PRINT"[139][139][139][208]RESS [210][197][212][213][210][206] TO ENTER "+BD$+F$
  576. 5660 L=1:GOSUB1540:LC=0:RETURN
  577. 5670 PRINT" [147][197]NTER ACCOUNT # OF USER.[139]"
  578. 5680 PRINT"[193]CCOUNT # OF CURRENT USER: "+R$+F$
  579. 5690 PRINT"[214][213]:":L=3:GOSUB1540:IFFNC(0)THENRETURN
  580. 5700 IFL$=""THENRETURN
  581. 5710 E$=L$+"":IFL$=R$THENFORL=1TO15:N$(L)=U$(L):NEXT:AA=AC:GOTO5730
  582. 5720 OPEN3,RF,3,RF$:RC=VAL(L$):GOSUB3180:GOSUB8160:CLOSE3
  583. 5730 PRINT" [147]1 - [206]AME      : "+N$(1):PRINT"[139]2 - [208]HONE     : "+N$(2)+F$:GOSUB8010
  584. 5740 PRINT"3 - [193]CCESS [204]VL:"+STR$(AA):PRINT"[139]4 - [208]ASSWORD  : "+N$(4)+F$
  585. 5750 PRINT"5 - # OF [197]MAIL: "+N$(5):PRINT"[139]6 - [193]GE       : "+N$(6)+F$
  586. 5760 PRINT"7 - [210]EAL NAME : "+N$(7):PRINT"[139]8 - C/G MODE  : "+N$(8)+F$
  587. 5770 PRINT"9 - [195]REDITS   : "+N$(9):PRINT"[139][193] - [194]LOCKS [196]/[204]: "+N$(10)+F$
  588. 5780 PRINT"[194] - [204]AST CALL : "+N$(11)+F$
  589. 5790 PRINT"[195] - # CALLS   : "+N$(12):PRINT"[139][196] - [195]ALLS/[196]AY : "+N$(13)+F$
  590. 5800 PRINT"[197] - [212]IME/[195]ALL : "+N$(14):PRINT"[139][198] - [212]TL [212]ODAY : "+N$(15)+F$
  591. 5810 IFL=55THENL=0:PRINT#4:CLOSE4:GOTO5730
  592. 5820 PRINT"[139][215]HICH TO CHANGE:":L=1:GOSUB1540:IFFNC(0)THENRETURN
  593. 5830 IFL$=""ANDR$=E$THENFORL=1TO15:U$(L)=N$(L):NEXT:AC=AA:GOTO5670
  594. 5840 IFL$=""THEN5670
  595. 5850 IFL$="S"ORL$="[211]"THEN5930
  596. 5860 IFL$="P"ORL$="[208]"THENL=55:OPEN4,4,7:CMD4:GOTO5730
  597. 5870 S=(ASC(L$)AND127)-64:IFS=>1ANDS<=6THENS=S+9:GOTO5900
  598. 5880 S=VAL(L$):IFS<1ORS>9THEN5730
  599. 5890 IFS=3THENGOSUB1700:N$(3)=A$:AA=A:GOTO5730
  600. 5900 PRINT"[139]["+N$(S)+"]:[195]HANGE TO->"
  601. 5910 L=20:GOSUB1540:IFFNC(0)THENRETURN
  602. 5920 N$(S)=L$+"":GOTO5730
  603. 5930 PRINT"[139][211]AVE STATS WHERE? (DEFAULT="+E$+"):"
  604. 5940 L=3:GOSUB1540:IFFNC(0)THENRETURN
  605. 5950 IFL$<>""ANDVAL(L$)>0THENE$=L$+""
  606. 5960 PRINT"[139][211]AVE AT: "+E$+F$
  607. 5970 PRINT"[195]ORRECT? (Y/N):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  608. 5980 IFL$<>"Y"ANDL$<>"[217]"THEN5730
  609. 5990 OPEN3,RF,3,RF$:RC=VAL(E$):GOSUB3180
  610. 6000 GOSUB8180
  611. 6010 CLOSE3
  612. 6020 RETURN
  613. 6030 PRINT" [147][139]"
  614. 6040 PRINT"[197]NTER '[217]' IF YOU WISH TO LEAVE[139]"
  615. 6050 PRINT"[198]EEDBACK TO "+SY$+":[139][139][198][194]:":L=1:GOSUB1540
  616. 6060 AN=0:IFL$<>"Y"ANDL$<>"[217]"ORFNC(0)THENRETURN
  617. 6070 TU$=SY$:BS$=BR$(0,0):SU$=BS$:BA=0:SA=0:BM=BM(0,0):SM=0:MD=MD(0,0):GOSUB1880
  618. 6080 E$="":RETURN
  619. 6090 PRINT" [147]"+DC$+"[139]     --**]> [197]LECTRONIC [205]AIL <[**--[139]"+DC$+F$+F$
  620. 6100 IFEM>0THENGOSUB7420
  621. 6110 PRINT"[211]END MAIL? (Y/N):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  622. 6120 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  623. 6130 IFMFANDCGTHENFI$="(M.EMAIL)":GOSUB1630:IFER$="00"THEN6200
  624. 6140 PRINT"[139][212]O SEND [197]-MAIL, YOU MUST KNOW THE[139]"
  625. 6150 PRINT"MEMBER NUMBER OF THE PERSON TO WHOM[139]"
  626. 6160 PRINT"YOU ARE SENDING MAIL TO.  [201]F YOU DO[139]"
  627. 6170 PRINT"NOT KNOW THE MEMBER NUMBER, YOU CAN[139]"
  628. 6180 PRINT"SEARCH THE USERFILE AT THE PROMPT[139]"
  629. 6190 PRINT"BY ENTERING '[198][201][206][196]'.[139]"
  630. 6200 PRINT"[139][159][197][205]:":L=4:GOSUB1540:IFFNC(0)ORL$=""THENE$="":RETURN
  631. 6210 IFL$="?"THEN6130
  632. 6220 IFL$="FIND"ORL$="[198][201][206][196]"THENGOSUB6320:GOTO6200
  633. 6230 IFVAL(L$)<1ORVAL(L$)>NUTHENPRINT"[139][206]ON-EXISTANT MEMBER #[139]":GOTO6200
  634. 6240 C=VAL(L$):E$=L$+"":SM=1:GOSUB6500:IFSM=0ANDU<>76THEN6200
  635. 6250 IFSM=0ANDU=76THENRETURN
  636. 6260 IFVAL(E$)=1THENSE=SE+1
  637. 6270 BS$=E$:TU$=N$(1):SU$="[197]-MAIL":BM=VAL(N$(5)):MD=8:GOSUB1880:IFSM=0THEN6200
  638. 6280 N$(5)=MID$(STR$(BM),2):GOSUB6620:IFU=76THENRETURN
  639. 6290 PRINT"[139][211]END MORE MAIL? (Y/N):"
  640. 6300 L=1:GOSUB1540:IFFNC(0)ORL$<>"Y"ANDL$<>"[217]"THENE$="":RETURN
  641. 6310 GOTO6200
  642. 6320 PRINT" [147][139]"
  643. 6330 PRINTDC$+"[139]    --**]>  [211]CAN  [213]SER [198]ILE  <[**--[139]"+DC$+F$
  644. 6340 PRINT"[139][212]HERE ARE CURRENTLY"+STR$(NU)+" USERS.[139]"
  645. 6350 PRINT"[211]TART SCAN WITH WHICH MEMBER #?[139]"
  646. 6360 PRINT"[139][129][213][198]:":L=3:GOSUB1540:IFFNC(0)ORL$=""THENRETURN
  647. 6370 PRINT"[139]"
  648. 6380 IFVAL(L$)<1ORVAL(L$)>NUTHENPRINT"[139][206]ON-EXISTANT MEMBER #[139]":GOTO6360
  649. 6390 OPEN3,RF,3,RF$
  650. 6400 FORRC=VAL(L$)TONU:GOSUB3180
  651. 6410 INPUT#3,P$
  652. 6420 IFNW<>2THEN6470
  653. 6430 IFP$="-DELETED-"THENNW=3:LC=RC:RETURN
  654. 6440 GET#5,A$:IFA$=""THENGETA$
  655. 6450 IFFNA(0)THENRC=NU+1:GOTO6480
  656. 6460 PRINT".":GOTO6480
  657. 6470 PRINTP$"  (#"+MID$(STR$(RC),2)+")[139]":IFFNA(0)THEN6490
  658. 6480 NEXT:IFNW=2THENNW=1:RETURN
  659. 6490 CLOSE3:GOTO6340
  660. 6500 PRINT"[139][195]HECKING USER'S MAILBOX....[139]"
  661. 6510 OPEN3,RF,3,RF$:RC=C:GOSUB3180
  662. 6520 GOSUB8160
  663. 6530 GOSUB8010
  664. 6540 CLOSE3:IFVAL(N$(5))>8THENPRINT"[205]AILBOX FULL![139]":SM=0:RETURN
  665. 6550 A$=US$:IFU<>76ORRB=0THENA$=N$(1):GOTO6580
  666. 6560 IFANTHENA$="[193]NONYMOUS":GOTO6580
  667. 6570 IFRIGHT$(A$,1)<>" "THENA$=LEFT$(A$,LEN(A$)-1):GOTO6570
  668. 6580 PRINT"[139][211]END MAIL TO "+A$+"? (Y/N):"
  669. 6590 L=1:GOSUB1540:IFFNC(0)THENRETURN
  670. 6600 IFL$<>"Y"ANDL$<>"[217]"THENSM=0
  671. 6610 RETURN
  672. 6620 OPEN3,RF,3,RF$:RC=C:GOSUB3180
  673. 6630 GOSUB8180
  674. 6640 CLOSE3:RETURN
  675. 6650 IFPEEK(659)=>8THENPRINT"[211]ORRY, NOT AT 1200/2400.[139]":RETURN
  676. 6660 PRINT"[139][193]CCEPTABLE [194]AUDS RATES ARE: 300-600[139]"
  677. 6670 PRINT"[217]OUR CURRENT BAUD RATE IS:"+STR$(BR)+".[139]"
  678. 6680 PRINT"[197]NTER NEW BAUD RATE, THEN CHANGE[139]"
  679. 6690 PRINT"YOUR TERMINAL SETTINGS.  [208]RESS RETURN[139]"
  680. 6700 PRINT"ONCE WHEN FINISHED.[139]"
  681. 6710 GOSUB4730:PRINT"[139][150][194][210]:":L=3:GOSUB1540:IFFNC(0)THENRETURN
  682. 6720 IFL$=""THENRETURN
  683. 6730 IFVAL(L$)<300ORVAL(L$)>600THEN6710
  684. 6740 BR=VAL(L$)
  685. 6750 GOSUB7800
  686. 6760 L=1:GOSUB1540:IFL$<>""THEN6760
  687. 6770 RETURN
  688. 6780 PRINT"[139][208]ASSWORD:":L=39:GOSUB1540:IFFNC(0)THENRETURN
  689. 6790 IFL$=P1$ANDAC=65535THEN6810
  690. 6800 RETURN
  691. 6810 AA=8:GOSUB8370
  692. 6820 IFMFANDCGTHENFI$="(M.RSM)":GOSUB1630:IFER$="00"THEN6920
  693. 6830 PRINT" [147][139]"
  694. 6840 PRINTDC$+"[139]   --**]> [210]EMOTE [211]YS-[207]P [205]ENU <[**--[139]"+DC$+F$+F$
  695. 6850 PRINT"[214] - [214]ALIDATE USER[139]"
  696. 6860 PRINT"[193] - [211]CAN ANY SEQ ON DISK[139]"
  697. 6870 PRINT"$ - [196]IRECTORY[139]"
  698. 6880 PRINT"@ - [196]OS COMMANDS[139]"
  699. 6890 PRINT"[213] - [211]CAN USER LOG[139]"
  700. 6900 PRINT"[212] - [212]ODAY'S CALLERS[139]"
  701. 6910 PRINT"# - [212]OGGLE DRIVE #"+STR$(DV)+";"+DR$+F$
  702. 6920 PRINT"[139][210][211][205]"+MID$(STR$(DV),2)+";"+DR$+":":L=1:GOSUB1540:IFFNC(0)THENRETURN
  703. 6930 IFL$=""THENRETURN
  704. 6940 L$=CHR$(ASC(L$)AND127)
  705. 6950 GOSUB8130:UL$=UL$+"[211]YSOP-"+L$+CHR$(13)
  706. 6960 ON-(L$="U")-2*(L$="A")-3*(L$="V")-4*(L$="$")GOSUB7680,7750,5670,7040
  707. 6970 ON-(L$="#")-2*(L$="T")GOSUB8400,7740
  708. 6980 IFL$="?"THEN6820
  709. 6990 IFL$<>"@"THEN6920
  710. 7000 PRINT"[139]>":L=39:GOSUB1540:IFFNC(0)THENRETURN
  711. 7010 IFL$=""THENGOSUB3220:PRINT"[139]"+ES$+F$:GOTO6920
  712. 7020 IFLEFT$(L$,4)=P2$+":"THENPRINT#15-B,RIGHT$(L$,LEN(L$)-4)
  713. 7030 GOTO6920
  714. 7040 PRINT"[139][208]ATTERN? $"+DR$+":":L=16:GOSUB1540:IFL$=""THENL$="*"
  715. 7050 PRINTF$+F$:OPEN1,DV,0,"$"+DR$+":"+L$
  716. 7060 GOSUB3220:IFER$>"01"THENCLOSE1:PRINT"[139]"+ES$+F$:RETURN
  717. 7070 GET#1,A$:GET#1,A$
  718. 7080 GET#1,A$:GET#1,A$:IF(ST)AND64THENCLOSE1:RETURN
  719. 7090 GET#1,LO$:GET#1,HI$
  720. 7100 LO$=LO$+N$:HI$=HI$+N$
  721. 7110 P$=STR$(ASC(LO$)+256*ASC(HI$))+" "
  722. 7120 GET#1,A$:IFA$=""THEN7160
  723. 7130 GET#5,Z$:IFZ$=""THENGETZ$
  724. 7140 IFZ$=" "THENCLOSE1:RETURN
  725. 7150 P$=P$+A$:GOTO7120
  726. 7160 L=8:IFECANDMID$(P$,L,1)=Q$THENL=9
  727. 7170 IFECANDMID$(P$,L,1)="("THEN7080
  728. 7180 PRINTP$+F$:IFFNA(0)THENCLOSE1:RETURN
  729. 7190 GOTO7080
  730. 7200 PRINT"[139][211]ORRY, THE [196]OWNLOAD SECTION IS CLOSED.[139]":RETURN
  731. 7210 AA=8:GOSUB8370:DR$="0":IFAC=65535THEN7290
  732. 7220 FORT=8TODR:AA=T:GOSUB8370:IFDR%(B)AND64THENNEXT:GOTO7200
  733. 7230 IFAC<DLTHEN7200
  734. 7290 FI$="(ST/R.UD/GF)":DV=D6:PRINT"[139][159][200]OLD ON...[200]EADING TO [205]ODULE![139][139]"
  735. 7300 IFPEEK(52993)ANDPEEK(52994)=0THENPRINT"[217]OU MUST [208]OST/[210]ESPOND FIRST![139]":E$="":RETURN
  736. 7301 GOSUB8140:OPEN1,8,5,"@0:(DATA),S,W":PRINT#1,R$:SYS52050
  737. 7302 POKE52992,VAL(MID$(M4$,2))
  738. 7305 IFPEEK(52070)THENU$(8)="0"
  739. 7310 FORT=1TO15:PRINT#1,Q$U$(T):NEXT:PRINT#1,LH:PRINT#1,LM:PRINT#1,SV:PRINT#1,SY
  740. 7320 PRINT#1,SF:PRINT#1,HL+RI:PRINT#1,M$:PRINT#1,DT:PRINT#1,LEN(F$):PRINT#1,Q$LT$
  741. 7330 PRINT#1,DV:PRINT#1,NW:PRINT#1,E$
  742. 7340 CLOSE1:POKE251,PEEK(152):DR$="0":IFDVAND128THENDR$="1"
  743. 7350 PRINT"[146][147]LOAD"Q$DR$":"FI$Q$","DVAND127"":POKE631,131:POKE198,1:NEW
  744. 7360 OPEN1,8,5,"0:(DATA)":INPUT#1,R$:R=VAL(R$):FORT=1TO15
  745. 7370 INPUT#1,U$(T):NEXT:INPUT#1,LH,LM,SV,SY,SF,HL,M$,DT,T,LT$,DV,NW,L$
  746. 7390 CLOSE1:C0=1:POKE766,DT:RI=HLAND8:HL=HLAND16
  747. 7400 CG=VAL(U$(8)):IFPEEK(52070)THENU$(8)="2"
  748. 7405 M4$="[205]0":IFPEEK(52992)THENM4$="[205]1"
  749. 7410 GOSUB8000:EM=VAL(U$(5)):LG=1:NS=0:SYS52041:GOTO1025
  750. 7420 IFVAL(U$(5))=0THENRETURN
  751. 7430 PRINT"[139][217]OU HAVE "+U$(5)+" PIECE(S) OF MAIL.[139]"
  752. 7440 PRINT"[210]EAD MAIL NOW? (Y/N):":L=1:GOSUB1540
  753. 7450 M=0:S=0:IFL$=""ORL$="N"ORL$="[206]"ORFNC(0)THENRETURN
  754. 7460 GOTO7560
  755. 7470 PRINT"[139][199]ETTING YOUR MAIL....[139]"
  756. 7480 SC=0:BS$=R$:BA=0:MD=8:GOSUB4160:CLOSE1
  757. 7490 PRINT" [147][205]SG#"+MID$(STR$(M),2)+F$+F$
  758. 7500 PRINT"     [198]ROM:"+US$+F$
  759. 7510 PRINT"[196]ATE/[212]IME:"+DT$+F$+F$
  760. 7520 FORLC=1TO50:IFE$(LC)="\"THEN7550
  761. 7530 IFA$="/"ORA$=" "THEN7550
  762. 7540 PRINTE$(LC)+F$:NEXT
  763. 7550 PRINTDC$+"[139][205]ESSAGE SENT BY: "+US$+F$:GOSUB3170
  764. 7560 IFMFANDCGTHENFI$="(M.R/EMAIL)":GOSUB1630:IFER$="00"THEN7590
  765. 7570 PRINT"[139][206] - [206]EXT [210] - [210]EPLY [209] - [209]UIT[139]"
  766. 7580 PRINT"# - [210]EAD MESSAGE NUMBER X[139]"
  767. 7590 PRINT"[139][159][210][197][205]:":L=1:GOSUB1540:IFFNC(0)ORL$="Q"ORL$="[209]"THENE$="":RETURN
  768. 7600 IF(L$="N"ORL$="[206]")AND(M<EM)THENM=M+1:GOTO7470
  769. 7610 IFL$="?"THEN7560
  770. 7620 IFVAL(L$)>0ANDVAL(L$)<=EMTHENM=VAL(L$):GOTO7470
  771. 7630 IFL$<>"R"ANDL$<>"[210]"THEN7590
  772. 7640 C=AN:SM=1:GOSUB6500:IFSM=0THEN7560
  773. 7650 BS$=MID$(STR$(AN),2)
  774. 7660 TU$=N$(1):SU$="[197]-MAIL":BM=VAL(N$(5)):MD=8:GOSUB1880:IFSM=0THEN7560
  775. 7670 N$(5)=MID$(STR$(BM),2):GOSUB6620:GOTO7560
  776. 7680 FI$="(USER LOG)":GOSUB1630:GOTO7710
  777. 7690 OPEN1,DV,5,DR$+":"+FI$:PRINT"":GOSUB3220:IFER$>"01"THENCLOSE1:RETURN
  778. 7700 POKE52030,SY:POKE52031,CG:SYS52021:CLOSE1
  779. 7710 PRINT"[139][211]CRATCH? (Y/N):":L=1:GOSUB1540
  780. 7720 IFL$=""OR(L$<>"Y"ANDL$<>"[217]")THENRETURN
  781. 7730 OPEN1,DV,5,"@"+DR$+":"+FI$+",S,W":PRINT#1," ":CLOSE1:RETURN
  782. 7740 GOSUB4580:GOTO7710
  783. 7750 PRINT"[139][211]CAN FILE: ":L=16:GOSUB1540
  784. 7760 FI$=L$+"":GOTO7690
  785. 7770 POKEB3,65:POKEB4,40:POKEB2,231:POKEB1,57:POKEB4,48:RETURN
  786. 7780 GOSUB7770:POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:POKEB1,PEEK(B1)OR32
  787. 7790 POKEB1,PEEK(B1)AND223:POKEB4,40:POKEB4,47:POKEB2,230:GOSUB7770:RETURN
  788. 7800 IFMT%=3THENRETURN
  789. 7805 CS=1022739:POKE659,6:IFBR=1200THENPOKE659,8
  790. 7810 IFBR=2400THENPOKE659,10
  791. 7820 RC=CS/BR:GOSUB7870:POKE51968,LO:POKE51969,HI
  792. 7830 IFBR=1200THENRC=(CS/BR)*.966:GOSUB7870
  793. 7840 IFBR=2400THENRC=(CS/BR)*.9507:GOSUB7870
  794. 7850 POKE665,LO:POKE666,HI:RC=((CS/BR)/2)-100:GOSUB7870
  795. 7860 POKE661,LO:POKE662,HI:RETURN
  796. 7870 HI=INT(RC/256):LO=RC-(HI*256):RETURN
  797. 7880 GOSUB7870:R1=LO:R2=HI:RETURN
  798. 7890 POKEB2,231:POKEB1,161:POKEB1,128:POKEB4,48
  799. 7900 IFBR<>1200THENPOKEB4,49:POKEB4,39:POKEB2,230:RETURN
  800. 7910 POKEB4,48:POKEB4,49:FORX=1TO2000:NEXT:POKEB4,55:POKEB2,230:RETURN
  801. 7920 X=0:FORI=1TO30:T=PEEK(B1)AND1:PRINTT;:IFT=0THENX=X+1
  802. 7930 NEXT:PRINT:IFX>5THENBR=1200:GOSUB7800:GOSUB7910
  803. 7940 RETURN
  804. 7950 IFGF=0THENPRINT"[139][206]O FILES AVAILABLE![139]":RETURN
  805. 7960 OPEN1,8,5,"0:(GENERAL)":INPUT#1,GF:FORT=1TOGF:INPUT#1,A$,L,C
  806. 7970 FORI=1TOL:INPUT#1,Z$:NEXT
  807. 7980 IF(CG=0ANDRIGHT$(A$,3)=".CG")OR(AC<C)THENNEXT:CLOSE1:RETURN
  808. 7990 CLOSE1:GOTO7290
  809. 8000 AC=VAL(U$(3)):A2=INT(AC/256):A1=AC-256*A2:RETURN
  810. 8010 AA=VAL(N$(3)):RETURN
  811. 8020 PRINT"[139][195]HANGE YOUR PASSWORD (Y/N):"
  812. 8030 L=1:GOSUB1540:IFFNC(0)THENRETURN
  813. 8040 IFL$<>"Y"ANDL$<>"[217]"THENRETURN
  814. 8050 PRINT"[207]LD [208]ASSWORD: ":L=20:GOSUB1540:IFFNC(0)THENRETURN
  815. 8060 IFL$<>U$(4)THENPRINT"[206]OPE![139]":RETURN
  816. 8070 PRINT"[206]EW [208]ASSWORD: ":L=20:GOSUB1540:IFFNC(0)THENRETURN
  817. 8080 IFL$=""THEN8060
  818. 8090 U$(4)=L$+"":RETURN
  819. 8100 CG=1-CG:U$(8)=MID$(STR$(CG),2):POKE52031,CG
  820. 8105 IFCGTHENPRINT"[139][195]OLOR [199]RAPHICS [205]ODE.[139]"
  821. 8110 IFCG=0THENPRINT"[139][193][211][195][201][201] [205]ODE.[139]"
  822. 8120 RETURN
  823. 8130 IFLEN(UL$)<230THENRETURN
  824. 8140 CLOSE1:OPEN1,8,5,"0:(USER LOG),A":PRINT#1,UL$:CLOSE1:UL$="":RETURN
  825. 8150 GOSUB8160:FORI=1TO15:U$(I)=N$(I):NEXT:RETURN
  826. 8160 FORI=1TO15:INPUT#3,N$(I):NEXT:RETURN
  827. 8170 FORI=1TO15:N$(I)=U$(I):NEXT
  828. 8180 N$(0)="":FORI=1TO15:N$(0)=N$(0)+Q$+N$(I)+CHR$(13):NEXT
  829. 8190 PRINT#3,N$(0):RC=1:GOSUB3180
  830. 8200 RETURN
  831. 8210 IFNB=0THEN1270
  832. 8220 PRINT"[139][210]EAD [193][204][204] [206]EW [205]ESSAGES.[139][139][159][[209]] [156][193]BORT  [159][[195]][156] [195]ONTINUOUS/[206]O [208]AUSE[139]"
  833. 8222 PRINT"[159][[208]][156] [208]AUSE [194]ETWEEN [205]ESSAGES[139][139]"
  834. 8224 PRINT"[153][210][197][193][196]:":L=1:GOSUB1540:IFFNC(0)ORL$="Q"ORL$="[209]"THENRETURN
  835. 8225 IFL$<>"[195]"ANDL$<>"C"ANDL$<>"[208]"ANDL$<>"P"THEN8224
  836. 8226 IFL$="[208]"ORL$="P"THENPA%=1
  837. 8228 PRINT"[139][[195]TRL-[211]/[208]] - [208]AUSE [/] - [193]BORT[139]":QT=0
  838. 8230 M1=0:M2=NB(QT)-1:MC=1:IFNB(QT)=0THEN8250
  839. 8240 PRINT"[139][158][217]OU ARE NOW ENTERING [211]UB-[211]ET #"+MID$(STR$(QT),2)+".[139]"
  840. 8250 FORQS=M1TOM2:L$="":T=QS:I=QT:GOSUB3900:IFSCTHEN8340
  841. 8260 BM=BM(QT,QS):BS$=BR$(QT,QS):MD=MD(QT,QS):IFBM=0THEN8340
  842. 8265 IFMC<>2THENPRINT"[139][217]OU ARE [197]NTERING: [156]"+BS$+"[139][139]":SA=QT:BA=QS:GOSUB9410
  843. 8266 IFFNC(0)THENA$="/":GOTO8330
  844. 8267 IFZ1%=0ANDZ2%=0THEN8340
  845. 8270 FORL1=0TO79STEP4:I=679:T=L1:Z1%=.:Z2%=.:GOSUB9540
  846. 8280 IFZ1%ORZ2%THEN8300
  847. 8290 NEXT:GOTO8340
  848. 8300 Z1%=((L1+1)/4):M1=Z1%+(BM-19)
  849. 8310 IFBM<20THENM1=Z1%+1
  850. 8320 M2=M1:GOSUB4130
  851. 8330 IFA$="/"THENQS=NB(QT)+1:QT=10:L1=80:IFFNC(0)THEN8340
  852. 8335 NEXTL1
  853. 8340 NEXTQS:IFMC=2THEN8360
  854. 8350 QT=QT+1:RB=-(QT=9):IFQT<10THEN8230
  855. 8360 RB=0:PA%=0:QS=0:MC=0:RETURN
  856. 8370 B=AA-8:IFB<0THENB=0
  857. 8380 AA=-((DR%(B)AND128)=128):DR$=MID$(STR$(AA),2):RETURN
  858. 8390 AA=-((MDAND128)=128):B=(MDAND127)-8:DR$=MID$(STR$(AA),2):RETURN
  859. 8400 IFDR$="0"THENAA=DV:GOSUB8370:IFDR$="1"THENRETURN
  860. 8410 DV=DV+1:IFDV>15THENDV=8
  861. 8420 FORL=0TO(DR-8):IFDV<>(DR%(L)AND63)THENNEXT:GOTO8410
  862. 8430 IFAC=65535ORSYTHEN8450
  863. 8440 AA=DV:GOSUB8370:IFDR%(B)AND64THEN8410
  864. 8450 AA=DV:GOSUB8370:DR$="0":RETURN
  865. 8460 ON(MT%-1)GOTO8470,8480,8510,8520,7780,7780
  866. 8470 POKEB2,PEEK(B2)OR32:POKEB1,PEEK(B1)AND223:RETURN
  867. 8480 IFSYTHENRETURN
  868. 8490 FORT=1TO2000:NEXT:PRINT#5,M1$;:FORT=1TO2000:NEXT:PRINT#5,"[193][212][200]"
  869. 8500 FORT=1TO2000:NEXT:PRINT#5,M2$+M4$+M3$:RETURN
  870. 8510 POKEB2,38:POKEB1,38:RETURN
  871. 8520 POKEB1,PEEK(B1)OR32:RETURN
  872. 8530 ON(MT%-1)GOTO8520,8200,8540,8470:GOSUB7890:GOTO7920
  873. 8540 POKEB1,0:POKEB2,38:RETURN
  874. 8550 IFPEEK(52068)=1THENPOKE52068,0:PRINT"[139][204]INEFEEDS [207][198][198].[139]":RETURN
  875. 8560 POKE52068,1:PRINT"[139][204]INEFEEDS [207][206].[139]":RETURN
  876. 8580 IFPF=0THENPRINT"[139][206]O [208]ROGRAM [198]ILES AVAILABLE.[139]":RETURN
  877. 8590 GOSUB4730:PRINT"[139]\C3[208][198]:":L=1:GOSUB1540
  878. 8600 IFFNC(0)ORL$="Q"ORL$="[209]"THENE$="":RETURN
  879. 8610 E$=CHR$(ASC(L$+N$)AND127):GOSUB8130:UL$=UL$+"[208]FILES-"+E$+CHR$(13)
  880. 8620 IFE$="L"THEN8710
  881. 8630 IFE$="R"THEN8740
  882. 8635 IFVAL(L$)>0THENPRINT"[139][210]UN [208]ROGRAM #"+L$+F$:GOTO8750
  883. 8640 IFE$<>"?"THEN8590
  884. 8650 IFMFANDCGTHENFI$="(M.PFILES)":GOSUB1630:IFER$="00"THEN8590
  885. 8660 PRINT" [147]"+DC$+"[139]     --**[[< [208]ROGRAM [198]ILES >]]**--[139]"+DC$+"[139][139]"
  886. 8670 PRINT"[204] - [204]IST [208]ROGRAM [198]ILES[139]"
  887. 8680 PRINT"[210] - [210]UN A [208]ROGRAM [198]ILE[139]"
  888. 8690 PRINT"[209] - [209]UIT TO [205]AIN[139]"
  889. 8700 PRINT"? - [212]HIS MENU[139]":GOTO8590
  890. 8710 PRINT"[139]"
  891. 8720 FORT=1TOPF:IFAC=>PF(T)THENPRINTMID$(STR$(T),(-(T>9)+1))+". "+PF$(T)+F$
  892. 8730 NEXT:GOTO8590
  893. 8740 PRINT"[139][210]UN [208]ROGRAM (1-"+MID$(STR$(PF),2)+"): ":L=2:GOSUB1540
  894. 8750 IFFNC(0)THENRETURN
  895. 8760 L=VAL(L$):IF(L$="")OR(L<1)OR(L>PF)THEN8590
  896. 8770 IFAC<PF(L)THEN8590
  897. 8780 FI$="("+PF$(L):DV=PD(L):PRINT"[139][208]LEASE WAIT! [204]OADING [205]ODULE.[139][139]"
  898. 8790 GOTO7300
  899. 8800 PRINT"[139][205]OVE TO [211]UB-[211]ET #(0-9):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  900. 8810 I=VAL(L$):IFI<0ORI>9THENRETURN
  901. 8820 IFNB(I)=0THENSC=1:RETURN
  902. 8830 MC=1:FORT=0TO9:GOSUB3900:IFSCTHENNEXT
  903. 8840 MC=0:RETURN
  904. 8850 GOSUB4730:PRINT"[139][156][211][212][193][212][211]:":L=1:GOSUB1540:IFFNC(0)THENRETURN
  905. 8860 IFL$=""THEN8850
  906. 8870 E$=CHR$(ASC(L$)AND127):IFE$="Q"THENRETURN
  907. 8875 IFASC(E$)>96THENE$=CHR$(ASC(E$)-32)
  908. 8880 GOSUB8130:UL$=UL$+"[211][212][193][212][211] - "+E$+CHR$(13)
  909. 8890 ON-(E$="L")-2*(E$="S")-3*(E$="P")-4*(E$="U")GOSUB8550,4390,8020,6320
  910. 8900 IFE$="G"ANDPEEK(52070)=0THENGOSUB8100
  911. 8905 IFE$="I"ANDCG=0THENGOSUB9150
  912. 8910 ON-(E$="E")-2*(E$="D")GOSUB8990,9590
  913. 8920 IFE$<>"?"THEN8850
  914. 8930 IFMFANDCGTHENFI$="(M.STATS)":GOSUB1630:IFER$="00"THEN8850
  915. 8940 PRINT"[147] "+DC$+"[139]       --++*[ [211]TATISTICS ]*++--[139]"+DC$+F$+F$
  916. 8950 PRINT"[156][204] - [212]OGGLE [204]INEFEEDS  [211] - [217]OUR [211]TATS[139]"
  917. 8960 PRINT"[208] - [195]HANGE [208]ASSWORD   [213] - [214]IEW [213]SERS[139]"
  918. 8970 PRINT"[197] - [197]DIT [217]OUR [211]TATS   ? - [212]HIS [205]ENU[139]"
  919. 8980 PRINT"[158][209] - [210]ETURN TO [205]AIN    [199] - [195][194][205]/[193][211][195][201][201][139]"
  920. 8985 PRINT"[159][196] - [204]AST [195]ALL [196]ATE    [201] - [201][194][205]/[193][211][195][201][201][139]":GOTO8850
  921. 8990 PRINT"[139][158]1 - [206]AME/[200]ANDLE   : "+U$(1)+F$
  922. 9000 PRINT"2 - [217]OUR [193]GE      : "+U$(6)+F$
  923. 9010 PRINT"3 - [217]OUR [210]EAL [206]AME: "+U$(7)+F$
  924. 9020 PRINT"[139][155][197]DIT WHICH? (1-3):":L=1:GOSUB1540:IFFNC(0)THENRETURN
  925. 9030 C=VAL(L$):IFC<1ORC>3THENRETURN
  926. 9040 IFC>1THENC=C+4
  927. 9050 PRINT"[139][152][195]HANGE TO: ":L=20:GOSUB1540:IFFNC(0)THENRETURN
  928. 9060 IFC=6ANDVAL(L$)<5ORVAL(L$)>99THEN8990
  929. 9070 GOSUB8130:UL$=UL$+U$(C)+" = "+L$+F$
  930. 9080 U$(C)=L$+"":RETURN
  931. 9090 IFC1=0THENRETURN
  932. 9100 PRINT"[139][217]OU ARE NOW ENTERING [211]UB-[211]ET"+STR$(SA)+".[139]"
  933. 9110 PRINT"[217]OU CAN ENTER THE FOLLOWING [211]UB-[194]OARDS[139]"
  934. 9120 PRINT"BY ENTERING IT'S NUMBER AT THE PROMPT.[139][139]":C1=0
  935. 9130 FORLC=0TONB-1:IFAC<AC(SA,LC)ORAC(SA,LC)=0THENNEXT:RETURN
  936. 9140 T=SA:GOSUB1340:NEXT:RETURN
  937. 9150 U$(8)="0":IFPEEK(52070)=0THENPOKE52070,1:U$(8)="2":GOTO9170
  938. 9160 POKE52070,0:PRINT"[139][208]LAIN [193][211][195][201][201] [205]ODE.[139]":RETURN
  939. 9170 PRINT"[139]\C4[201][194][205][160]\C6[193][206][211][201] \C5[195]OLORS.[139]":RETURN
  940. 9180 FORT=0TO29STEP3:IFPEEK(53247-T)=0THENNEXT:RETURN
  941. 9190 IFPEEK(53247)<>255THEN9210
  942. 9200 OPEN1,8,5,"0:(RUNPFILE)":GOSUB3220:IFER$>"01"THENCLOSE1:POKE53247,0:RETURN
  943. 9205 FORI=0TO29STEP3:INPUT#1,A,LO,HI:POKE53247-I,A:POKE53246-I,LO
  944. 9207 POKE53245-I,HI:NEXT:CLOSE1
  945. 9210 A=PEEK(53247-T):IFA=0THENRETURN
  946. 9211 POKE53247-T,0:I=0:IFA>128THENI=1:A=AAND127
  947. 9212 IFA<64THEN9220
  948. 9214 I=0:A=AAND63:IFPEEK(53246-T)<D1%THEN9220
  949. 9216 IFPEEK(53246-T)>D1%THENI=1:GOTO9220
  950. 9218 IFPEEK(53245-T)=>D2%THENI=1
  951. 9220 OPEN1,8,5,"0:(PFILES)":INPUT#1,T:IFA>TTHENCLOSE1:GOTO9180
  952. 9230 FORT=1TOA:INPUT#1,FI$,DV,L:NEXT:CLOSE1:IFAC<LTHEN9180
  953. 9240 IFIANDAC<65535THENPRINT"[139][205]ANDATORY [208]ROGRAM [198]ILE [210]UN![139]":UL$=UL$+"[193]UTO "
  954. 9245 IFIANDAC<65535THENONFNC(0)+1GOTO9290:UL$=UL$+CHR$(13):RETURN
  955. 9250 PRINT"[139][196]O YOU WISH TO ENTER THE [208]ROGRAM [198]ILE:[139]"FI$"? (Y/N):":L=1
  956. 9260 GOSUB1540:IFFNC(0)THENRETURN
  957. 9270 IFL$="Y"ORL$="[217]"THEN9290
  958. 9280 UL$=UL$+"[211]KIPPED PFILE: "+FI$+CHR$(13):GOSUB8130:GOTO9180
  959. 9290 UL$=UL$+"[210]UNNING PFILE: "+FI$+CHR$(13):GOSUB8130
  960. 9300 PRINT"[139][200]OLD ON.... [204]OADING [205]ODULE![139]":E$="D":FI$="("+FI$:GOTO7301
  961. 9310 RESTORE:A$=LEFT$(U$(11),3):D2%=VAL(MID$(U$(11),4)):FORT=1TO12:READL$
  962. 9320 IFA$<>L$THENNEXT:D1%=7:RETURN
  963. 9330 D1%=T:RETURN:DATA"[202]AN","[198]EB","[205]AR","[193]PR","[205]AY","[202]UN","[202]UL","[193]UG","[211]EP"
  964. 9340 DATA"[207]CT","[206]OV","[196]EC"
  965. 9350 A$=LEFT$(RF$,1):OPEN3,RF,3,A$+":(HIGH1MESS)":B=8-RF
  966. 9360 RC=1+(SA*10)+BA:GOSUB7880:GOSUB3190:I=679:POKE184,3:SYS52072:CLOSE3
  967. 9370 Z1%=.:Z2%=.:RETURN
  968. 9380 A$=LEFT$(RF$,1):OPEN3,RF,3,A$+":(HIGH1MESS)":B=8-RF
  969. 9390 RC=1+(SA*10)+BA:GOSUB7880:GOSUB3190:POKE184,3:SYS52081
  970. 9400 RC=1:GOSUB7880:GOSUB3190:CLOSE3:RETURN
  971. 9410 GOSUB9350:FORT=0TO79STEP4:S=1
  972. 9420 GOSUB9540
  973. 9430 NEXT:IFZ1%=0ANDZ2%=0THENPRINT"[212]HERE ARE NO NEW [208]OSTS/[210]ESPONSES.[139]":RETURN
  974. 9440 IFZ2%THENPRINT"[153][212]HERE ARE"+STR$(Z2%)+"[153] NEW [208]OSTS.[139]"
  975. 9450 IFZ1%THENPRINT"[154][212]HERE ARE[159]"+STR$(Z1%)+"[154] [205]SGS WITH NEW [210]ESPONSES.[139]"
  976. 9460 RETURN
  977. 9470 I=679:IFU=65THEN9490
  978. 9480 M=BM:ON-(BM<21)GOTO9490:FORT=4TO79:POKEI+T-4,PEEK(I+T):NEXT
  979. 9490 Z1%=((M-1)-((BM-1)-19))*4:IFBM<21THENZ1%=(M-1)*4
  980. 9500 D4%=DT:RESTORE:FORT=1TO12:READA$:IFA$<>M$THENNEXT:T=7
  981. 9510 D3%=T:IFU=65THEN9530
  982. 9520 POKEI+Z1%,D3%:POKEI+1+Z1%,D4%:POKEI+2+Z1%,0:POKEI+3+Z1%,0:GOTO9380
  983. 9530 POKEI+Z1%+2,D3%:POKEI+Z1%+3,D4%:GOTO9380
  984. 9540 IFPEEK(I+T)-D1%=>6ORPEEK(I+T)<D1%THEN9560
  985. 9545 IFPEEK(I+T)>D1%THENZ2%=Z2%+1:GOTO9560
  986. 9550 IFPEEK(I+T+1)=>D2%THENZ2%=Z2%+1
  987. 9560 IFPEEK(I+T+2)-D1%=>6ORPEEK(I+T+2)<D1%THENRETURN
  988. 9565 IFPEEK(I+T+2)>D1%THENZ1%=Z1%+1:RETURN
  989. 9570 IFPEEK(I+T+3)=>D2%THENZ1%=Z1%+1
  990. 9580 RETURN
  991. 9590 PRINT"[139][150][195]HANGE YOUR [204]AST [195]ALL [196]ATE? (Y/N):":L=1:GOSUB1540
  992. 9600 IF(L$<>"Y"ANDL$<>"[217]")ORFNC(0)THENRETURN
  993. 9610 PRINT"[139][205]ONTH (1-12): ":L=2:GOSUB1540:IFL$=""ORFNC(0)THENRETURN
  994. 9620 A=VAL(L$):IFA>0ANDA<13THEND1%=A:RESTORE:FORT=1TOA:READU$(11):NEXT
  995. 9630 PRINT"[154][196]AY   (1-31): ":L=2:GOSUB1540:IFL$=""ORFNC(0)THENRETURN
  996. 9640 A=VAL(L$):IFA>0ANDA<32THEND2%=A
  997. 9650 U$(11)=U$(11)+MID$(STR$(D2%),2):RETURN
  998.